Mais programas no TASM 


Nesta sccao forneceremos a voce varios exemplos de programas a serem montados fazendo 
uso do TASM da Borland. 


Para monta-los, siga os seguintes passos: 

Primeiro passo 


Montar o programa 
Por exemplo: 


C:\>tasm one.asm 

Turbo Assembler V2.0 Copyright (c) 1988, 1990 Borland International 


Assembling file: 
Error messages: 
Warning messages: 
Passes : 

Remaining memory: 


one.asm 
None 
None 
1 

471k 


C: \> 

Isto criara um programa objeto com o mesmo nome do fonte, neste caso: one.obj 


Segundo passo 

Criar o programa executavel 
Por exemplo: 


C:\>tlink one.obj 

Turbo Link Version 3.0 Copyright (c) 1987, 1990 Borland International 
C: \> 

Isto cria o programa executavel com o mesmo nome do objeto e com extensao diferente, 
one.exe 

Terceiro passo 

Rodar o programa executavel. Basta digitar o nome do programa criado. 
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Exemplos de Programas Assembly 

Primeiro exemplo 


;nome do programa: one.asm 


.model small 
.stack 
. code 
inicio: 

mov AH,lh 
int 21h 
mov DL,AL 
sub DL,30h 
cmp DL,9h 
jle digitl 
sub DL,7h 
digitl: 

mov CL,4h 
shl DL,CL 
int 21h 
sub AL,30h 
cmp AL,9h 
jle digit2 
sub AL,7h 
digit2: 

add DL,AL 
mov AH,4Ch 
Int 21h 
End inicio 


;Label p/ formar ender. de entrada do programa 
;Fungao 1 do DOS 

;le caracter e retorna codigo ASCII ao registrador AL 
;move o codigo ASCII para o registrador DL 
;subtrai de 30h para converter a urn digito de 0 a 9 
;compara se o digito esta entre 0 e 9 
;se verdadeiro obtem o primeiro numero (4 bits) 

;se falso, subtrai de 7h para converter a uma letra A-F 

;prepara para multiplicar por 16 

;multiplica para converter dentro dos 4 bits mais altos 
;obtem o proximo caracter 
;repete a operagao de conversao 

;compara o valor 9h com o conteudo do registrador AL 
;se verdadeiro, obtem o segundo digito 
;se falso, subtrai de 7h 

;adiciona o segundo digito 
;fungao 4Ch do DOS (exit) 

;interrupgao 21h 
;finaliza o programa 


Este programa le dois caracteres e os imprime na tela 


Segundo exemplo 


;nome do programa: two.asm 
.model small 
.stack 
. code 


PRINT_A_J PROC 
mov DL,'A' 
mov CX,10 

PRINT_LOOP: 

call WRITE_CHAR 
inc DL 

loop PRINT_LOOP 
mov AH,4Ch 
int 21h 

PRINT_A_J ENDP 


;move o character A para o registrador DL 
;move o valor decimal 10 para o registrador CX 
;este valor e usado para fazer lago com 10 interagoes 

;imprime o caracter em DL 
;incrementa o valor do registrador DL 
;lago para imprimir 10 caracteres 
;fungao 4Ch, para sair ao DOS 
;interrupgao 21h 
;finaliza o procedimento 


WRITE_CHAR PROC 
mov AH,2h 
int 21h 
ret 

WRITE_CHAR ENDP 


;fungao 2h, imprime caracter 
;imprime o caracter que esta em DL 
;retorna o controle ao procedimento que chamou 
;finaliza o procedimento 
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END PRINT_A_J ;finaliza o programa 

Este programa mostra os caracteres ABCDEFGHIJ na tela. 

Terceiro exemplo 


;nome do programa: three.asm 
.model small 
.STACK 
. code 


TEST_WRITE_HEX PROC 
mov DL,3Fh 
call WRITE_HEX 
mov AH,4CH 
int 21h 

TEST_WRITE_HEX ENDP 


;move o valor 3Fh para o registrador DL 
;chama a sub-rotina 
;fungao 4Ch 

;retorna o controle ao DOS 
;finaliza o procedimento 


PUBLIC WRITE_HEX 

. . . 

;Este procedimento converte para hexadecimal o byte ; 

;armazenado no registrador DL e mostra o digito ; 

;Use:WRITE_HEX_DIGIT ; 

r . r 


WRITE_HEX PROC 
push CX 
push DX 
mov DH,DL 
mov CX,4 
shr DL,CL 

call WRITE_HEX_DIGIT 
mov DL,DH 
and DL,OFh 
call WRITE_HEX_DIGIT 
pop DX 
pop CX 
ret 

WRITE_HEX ENDP 


;coloca na pilha o valor do registrador CX 
;coloca na pilha o valor do registrador DX 
/move o valor de DL para o registrador DH 
/move o valor 4 para o registrador CX 


/mostra na tela o primeiro numero hexadecimal 
/move o valor de DH para o registrador DL 


/mostra na 
/retira da 
/retira da 
/retorna o 


tela o segundo numero hexadecimal 
pilha o valor do registrador DX 
pilha o valor do registrador CX 
controle ao procedimento que chamou 


PUBLIC WRITE_HEX_DIGIT 

r . r 

/Este procedimento converte os 4 bits mais baixos do registrador DL / 
/para urn numero hexadecimal e o mostra na tela do computador / 

/Use: WRITE_CHAR 

r . r 


WRITE_HEX_DIGIT PROC 
push DX 
cmp DL,10 
jae HEX_LETTER 
add DL,"0" 

jmp Short WRITE_DIGIT 
HEX_LETTER: 


/coloca na pilha o valor de DX 
/compara se numero de bits e menor que 
/se nao, salta para HEX_LETER 
/se sim, converte para numero 
/escreve o caracter 


10 


add DL,"A"-10 


/converte urn caracter para hexadecimal 
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WRITE_DIGIT : 

call WRITE_CHAR 
pop DX 

ret 

WRITE_HEX_DIGIT ENDP 


;imprime o caracter na tela 

;Retorna o valor inicial do registrador DX 
;para o registrador DL 

;Retorna o controle ao procedimento que chamou 


PUBLIC WRITE_CHAR 


;Este procedimento imprime urn caracter na tela usando o D.O.S. ; 

t . r 


WRITE_CHAR PROC 


push 

AX 

/coloca na 

pilha o 

valor do 

registarador AX 

mov 

AH, 2 

/fungao 2h 




int 

21h 

/interrupgao 21h 



pop 

AX 

/extrai da 

pilha o 

valor de 

AX 

ret 


/retorna o 

controle 

ao procedimento que chamou 


WRITE_CHAR ENDP 

END TEST_WRITE_HEX /Finaliza o programa 


Quarto exemplo 


;nome do programa: four.asm 
.model small 
.stack 
. code 


TEST WRITE DECIMAL 


PROC 


mov DX,12345 
call WRITE_DECIMAL 
mov AH,4CH 
int 21h 

TEST WRITE DECIMAL ENDP 


/move valor decimal 12345 para 
;chama o procedimento 
;fungao 4Ch 
/interrupgao 21h 
;finaliza o procedimento 


registrador DX 


PUBLIC WRITE_DECIMAL 

r . r 

;Este procedimento escreve urn numero de 16 bits como urn numero ; 
;sem sinal em notagao decimal ; 

/Use: WRITE_HEX_DIGIT 

r . r 


WRITE_DECIMAL 
PUSH AX 
PUSH CX 
PUSH DX 
PUSH SI 
MOV AX,DX 
MOV SI,10 
XOR CX,CX 
NON_ZERO: 

XOR DX,DX 
DIV SI 


PROC 


/Poe na 
/Poe na 
/Poe na 
/Poe na 
/move o 
/move o 
/zera o 


pilha o valor do registrador AX 
pilha o valor do registrador CX 
pilha o valor do registrador DX 
pilha o valor do registrador SI 
valor do registrador DX para AX 
valor 10 para o registrador SI 
registrador CX 


/zera o registrador CX 
/divizao entre SI 
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PUSH DX ;Poe na pilha o valor do registrador DX 
INC CX ;incrementa CX 
OR AX,AX /nao zero 
JNE NON_ZERO ;salta para NON_ZERO 
WRITE_DIGIT_LOOP: 

POP DX ;retorna o valor em modo reverso 
CALL WRITE_HEX_DIGIT ;chama o procedimento 
LOOP WRITE_DIGIT_LOOP /loop 
END_DECIMAL: 

/retira da pilha o valor do registrador 

/retira da pilha o valor do registrador 

/retira da pilha o valor do registrador 

/retira da pilha o valor do registrador 

/retorna o controle ao procedimento que 
ENDP /finaliza o procedimento 


POP SI 
POP DX 
POP CX 
POP AX 
RET 

WRITE DECIMAL 


SI 

DX 

CX 

AX 

chamou 


PUBLIC WRITE HEX DIGIT 


/Este procedimento converte os 4 bits mais baixos do registrador DL 
/num numero hexadecimal e os imprime 
/Use: WRITE_CHAR 


WRITE_HEX_DIGIT PROC 

PUSH DX /Poe na pilha o valor do registrador DX 

CMP DL,10 /compara o valor 10 com o valor do registrador DL 

JAE HEX_LETTER /se nao, salta para HEX_LETER 

ADD DL,"0" /se e, converte em digito numerico 

JMP Short WRITE_DIGIT /escreve o caracter 
HEX_LETTER: 

ADD DL,"A"-10 /converte urn caracter para urn numero hexadecimal 
WRITE_DIGIT: 

CALL WRITE_CHAR /mostra o caracter na tela 

POP DX /retorna o valor inicial para o registrador DL 

RET /retorna o controle ao procedimento que chamou 

WRITE_HEX_DIGIT ENDP 


PUBLIC WRITE_CHAR 


/Este procedimento imprime urn caracter na tela usando uma fungao D.O.S./ 

r . r 


WRITE_CHAR PROC 

PUSH AX /Poe na pilha o valor do registrador AX 

MOV AH,2h /Fungao 2h 

INT 21h /Interrupgao 21h 

POP AX /Retira da pilha o valor inicial do registrador AX 

RET /Retorna o controle ao procedimento que chamou 

WRITE_CHAR ENDP 


END TEST_WRITE_DECIMAL /finaliza o programa 

Este programa mostra na tela os numcros 12345 
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Quinto exemplo 


;nome do programs: five.asm 
.model small 
.stack 
. code 


PRINT_ASCII PROC 

MOV DL,OOh 
MOV CX,255 

PRINT_LOOP: 

CALL WRITE_CHAR 
INC DL 

LOOP PRINT_LOOP 
MOV AH,4Ch 
INT 2lh 

PRINT_ASCII ENDP 


/move o valor OOh para o registrador DL 

/move o valor decimal 255 para o registrador CX 

/usado para fazer urn lago com 255 interagoes 

/Chama o procedimento que imprime 
/Incrementa o valor do registrador DL 
/Loop para imprimir 10 caracteres 
/Fungao 4Ch 
/Interrupgao 21h 
/Finaliza o procedimento 


WRITE_CHAR PROC 

MOV AH,2h 
INT 2lh 
RET 

WRITE_CHAR ENDP 


/Fungao 2h para imprimir urn caracter 

/Imprime o caracter que esta em DL 

/Retorna o controle ao procediemento que chamou 

/Finaliza o procedimento 


END PRINT_ASCII /Finaliza o programa 

Este programa mostra na tela o valor dos 256 caracteres do codigo ASCII. 
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